From: Stefan Monnier Date: Thu, 15 Feb 2018 05:41:52 +0000 (-0500) Subject: * lisp/calendar/diary-lib.el (diary-remind): Fix bug#30455. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~6069 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=b61a87292671c917a4c6c1c146a016f5f544ae36;p=emacs.git * lisp/calendar/diary-lib.el (diary-remind): Fix bug#30455. (diary-remind): Bind `days' as documented for diary-remind-message. --- diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 181b1172fa6..acf4b20d779 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -2049,7 +2049,8 @@ calendar." (when (setq diary-entry (eval sexp)) ;; Discard any mark portion from diary-anniversary, etc. (if (consp diary-entry) (setq diary-entry (cdr diary-entry))) - (mapconcat #'eval diary-remind-message "")))) + (calendar-dlet* ((days days)) + (mapconcat #'eval diary-remind-message ""))))) ;; Diary entry may apply to one of a list of days before date. ((and (listp days) days) (or (diary-remind sexp (car days) marking)